home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Agfa Fonts^5.adf / CSDingbatsInstall < prev    next >
Text File  |  1992-03-13  |  3KB  |  98 lines
  1. ;This "Installer" script will configure the users system to support 
  2. ; the CS(Compugraphic Script) typefaces . 
  3. ; Background:
  4. ; Fountain version 37.10 sets L1 as the default symbol set. To support CS typefaces
  5. ; we need to copy a new version of IF.SS that contains character maps for CS.
  6. ; The new IF.SS files will contain: 
  7. ;        L1 - Amiga Latin 1
  8. ;        GD - Gold Disk
  9. ;        D1 - Series 100
  10. ;        D2 - Series 200
  11. ;        D3 - Series 300
  12. ;        CP - Postscript
  13. ;        CS - CS Zapf Dingbats
  14. ;        SP - Symbols - Postscript
  15. ;        plus the TD symbol sets, minus Ventura
  16. ;        
  17.  
  18.  
  19. ; if something goes wrong, reset diskfont variable
  20.  
  21. (onerror (run "setenv env:sys/diskfont SYMSET L1"))
  22.  
  23.  
  24.  
  25.  
  26. (set SymSet 0)
  27. (message 
  28.         "The Agfa Intellifont LaserType CS Zapf Dingbats typeface require a special character set."
  29.         " Please refer to the enclosed \"Agfa CS (Compugrahic Script)Installation\" document. "
  30.         " This will show you the character set for CS ITC Zapf Dingbats. "
  31. )
  32.                           
  33.                   
  34.  
  35.  
  36.     
  37. ;if the original IF.SS file is installed, copy new file
  38.  
  39.  
  40. (set ifssSize (getsize "fonts:_bullet/if.ss"))
  41.  
  42.  
  43. (if (< ifssSize 1)
  44.    
  45.    (Abort " \"fonts:_bullet/if.ss\" not found."
  46.           " Please execute \"IntellifontSystemChek\""
  47.    )        
  48. )
  49.  
  50.  
  51.  
  52. (if (> 18000 ifssSize)
  53.     
  54.    (
  55.     (run "copy fonts:_bullet/if.ss to fonts:_bullet/if.ss.org")  
  56.     (copyfiles
  57.                       
  58.             (prompt "Copying a new symbol set maps to support"
  59.             " LaserType CS (Compugraphic Script)"
  60.             )
  61.             
  62.             (help 
  63.                      "In order to use CS ITC Zapf Dingbat characters"
  64.                      " in the LaserType CS (Compugrahic Script) collection, we need to add an additional"
  65.                      " symbol set. This symbol sets contain the following character maps:\n"
  66.                      "\n   CS - Postscript Dingbats\n"
  67.                      "\n"
  68.                      " Refer to the enclosed document for print sample of the above selection."
  69.                      )
  70.             (source "df0:Intellifontfiles")
  71.             (dest "fonts:_bullet")
  72.             (pattern "if.ss")
  73.             (files)
  74.             (confirm)
  75.      )
  76.    )
  77. )            
  78.  
  79. ; set system variable
  80.  
  81. (if (= SymSet 0)
  82.  (run "setenv env:sys/diskfont SYMSET CS")
  83. )
  84.  
  85.  
  86. (message "The installer will now execute Fountain for you.\n"
  87.         " NOTE: This installer only works with LaserType CS ITC Zapf Dingbats Font." 
  88.         " You MUST only install LaserType CS ITC Zapf Dingbatstypeface, then exit from Fountain,"
  89.         " and finish the Install !!! " 
  90. )
  91. (run "sys:system/fountain")
  92.  
  93. (run "setenv env:sys/diskfont SYMSET L1")
  94.  
  95. (trap 12345 (run "setenv env:sys/diskfont SYMSET L1"))
  96.  
  97. (exit)
  98.